home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 14 / 3 / DISK1431.ZIP / TOOLS / FUNC.CMD < prev    next >
OS/2 REXX Batch file  |  1988-02-13  |  504b  |  21 lines
  1. ;    FUNC.CMD    Allow mainframes to simulate function
  2. ;            keys with ^C<n> and ^C shifted-<n>
  3. ;            Also allow the ` key to be META as well as ESC
  4.  
  5. bind-to-key execute-macro-21 ^C
  6.  
  7. 21    store-macro
  8.     !if ¬ $pending
  9.         write-message "FN-"
  10.     !endif
  11.     set %rcchar >key
  12.     set %rcchar &sindex "1234567890!@#$%^&*()" %rcchar
  13.     !if &equ %rcchar 0
  14.         write-message "[Not Bound]"
  15.         !return
  16.     !endif
  17.     clear-message-line
  18.     set %rcchar &mid ";<=>?@ABCDTUVWXYZ[\]" %rcchar 1
  19.     &ind &bind &cat "FN" %rcchar
  20. !endm
  21.